inherited FPermissao: TFPermissao
  Left = 379
  Top = 174
  Caption = 'Permiss'#227'o de Acesso para Grupo de Usu'#225'rios'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'NIV_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NIV_NOME'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 10
          Top = 36
          Width = 101
          Height = 16
          Caption = 'Grupo de Usu'#225'rio'
        end
        inherited panel2: TPanel
          inherited SBAtualiza: TSpeedButton
            Left = 812
            Visible = False
          end
          inherited BtnIncluir: TBitBtn
            Left = 862
            Visible = False
          end
          inherited BtnEditar: TBitBtn
            Left = 10
          end
          inherited BtnExcluir: TBitBtn [3]
            Left = 862
            Visible = False
          end
          inherited DBNavigator1: TDBNavigator [4]
            Left = 699
            Hints.Strings = ()
          end
          inherited BtnFechar: TBitBtn [5]
            Left = 305
          end
        end
        inherited panel3: TPanel
          inherited BtnConsuta: TBitBtn
            Left = 518
            Width = 91
            Visible = False
          end
          inherited BtnSalvar: TBitBtn
            Left = 636
            ParentFont = False
          end
          inherited BtnCancelar: TBitBtn
            Left = 735
          end
        end
        object DBLGrupoUsuario: TDBLookupComboBox
          Left = 10
          Top = 55
          Width = 390
          Height = 22
          Ctl3D = False
          KeyField = 'NIV_CODIGO'
          ListField = 'NIV_NOME'
          ListSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 2
        end
        object GBPermissoes: TGroupBox
          Left = 10
          Top = 82
          Width = 823
          Height = 342
          Caption = '  Permiss'#245'es  '
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          object CkLBPermissao: TCheckListBox
            Left = 10
            Top = 23
            Width = 671
            Height = 307
            OnClickCheck = CkLBPermissaoClickCheck
            AutoComplete = False
            Ctl3D = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = 'Courier New'
            Font.Style = [fsBold]
            ItemHeight = 17
            Items.Strings = (
              'sljfhsdlkflksdf')
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
            OnClick = CkLBPermissaoClick
          end
          object GroupBox1: TGroupBox
            Left = 688
            Top = 16
            Width = 126
            Height = 105
            Caption = '  Fun'#231#245'es  '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            object cbInserir: TCheckBox
              Tag = 10
              Left = 8
              Top = 24
              Width = 97
              Height = 17
              Caption = 'Inserir'
              TabOrder = 0
              OnClick = cbInserirClick
            end
            object cbEditar: TCheckBox
              Tag = 10
              Left = 8
              Top = 48
              Width = 97
              Height = 17
              Caption = 'Editar'
              TabOrder = 1
              OnClick = cbInserirClick
            end
            object cbExcluir: TCheckBox
              Tag = 10
              Left = 8
              Top = 72
              Width = 97
              Height = 17
              Caption = 'Excluir'
              TabOrder = 2
              OnClick = cbInserirClick
            end
          end
          object GroupBox2: TGroupBox
            Left = 688
            Top = 128
            Width = 126
            Height = 105
            Caption = '  Abas  '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 2
            object cbPesquisa: TCheckBox
              Tag = 10
              Left = 8
              Top = 24
              Width = 97
              Height = 17
              Caption = 'Pesquisa'
              TabOrder = 0
              OnClick = cbInserirClick
            end
            object cbCadastro: TCheckBox
              Tag = 10
              Left = 8
              Top = 48
              Width = 97
              Height = 17
              Caption = 'Cadastro'
              TabOrder = 1
              OnClick = cbInserirClick
            end
            object cbUsuario: TCheckBox
              Tag = 10
              Left = 8
              Top = 72
              Width = 97
              Height = 17
              Caption = 'Usu'#225'rio'
              TabOrder = 2
              OnClick = cbInserirClick
            end
          end
          object btnSalvarFuncAbas: TBitBtn
            Left = 688
            Top = 238
            Width = 126
            Height = 25
            Caption = 'Salvar'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnClick = btnSalvarFuncAbasClick
          end
        end
        object CbMarcarTodos: TCheckBox
          Left = 713
          Top = 64
          Width = 120
          Height = 21
          Caption = 'Marcar Todos'
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          OnClick = CbMarcarTodosClick
        end
      end
    end
    inherited tsAjuda: TTabSheet
      inherited reAjuda: TRichEdit
        Top = 72
        Height = 409
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from nivel'
      'Order By  niv_Codigo')
  end
  inherited dspCadastro: TDataSetProvider
    DataSet = QGrupoUsuarioPermissao
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroNIV_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'NIV_CODIGO'
    end
    object cdsCadastroNIV_NOME: TStringField
      DisplayLabel = 'Grupo de Usu'#225'rio'
      FieldName = 'NIV_NOME'
      Size = 60
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
  end
  object QGrupoUsuarioPermissao: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * from nivel'
      'Order By  niv_Codigo'
      ''
      ''
      '')
    Left = 264
    Top = 472
  end
  object DSGrupoUsuarioPermissao: TDataSource
    AutoEdit = False
    DataSet = QGrupoUsuarioPermissao
    OnStateChange = DSGrupoUsuarioPermissaoStateChange
    OnDataChange = DSGrupoUsuarioPermissaoDataChange
    Left = 376
    Top = 472
  end
end
